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QL CORNER 


This summer I spent much of my time learning to use the many new 
features of XCHANGE and XCHANGE Quill. Some of us had expected an 
XCHANGE manual to surface somewhere so that we could use XCHANGE more 


efficiently. This never happened. 


closely at the five HELP files (those ending with 

and decided to re-format them, select those files 
pertaining to the new commands and printing them out. After working 
with XCHANGE for several weeks, I added some text to the file I-call 
XCHNOTES. XCHNOTES_doc file is approximately seven (7) pages long and 
will do for now as a user "e manual. 


Easel and Abacus are updated versions and 
the latest versions of the same named 


multi-tasking with additional software 
and 


I decided to look 
an _hob extension) 


XCHANGE Quill, Archive, 
seem to operate faster than 

files. When in XCHANGE itself, 
isn’t a problem. I now use XCHANGE instead of Taskmaster 


multi-task The Editor S. E. without any problem. 


The mail merge facility in XCHANGE Quill will allow the use of a 
Name and Address file from either Archive or Quill. So those of you 
out there who do not use Archive will find a simple _doc file 
adequate for use as a database. Incidentally, using this mail merge 
is a lot easier than using a mail merge from a separate Mail Merge 


program. 


I. can supply any reader of LIST with a copy of XCHNOTES_doc or 
XCHNOTES_txt and all five HELP files formatted as _txt and _doc files 
on disk provided you send me a formatted, 720K disk (either 5 1/4" or 
3 1/2") in a suitable envelope so that it can be used for return to 
you and return postage which is usually 75 cents in stamps. If you 
need the XCHANGE program, send an additional formatted disk with 
enough return postage. I will send out the software the next day 


after receipt of your request. 


If any QL user is still suffering from a QL overheating problem, I 
have on hand a small supply of the 2 Amp version of the 78C05S 
voltage regulator. (Original version is 1 AMP). The European’s have 
used this fix for quite some time with good results. Here in the 
"States" they were not available. If any one needs one, send me $3.00 


and I will send you one, post paid. 


Digital Precision has sent me the latest version of The Editor S. E. 
to review for IQLR. I’ve been using The Editor since 1987 and 
upgraded to the Special Edition in 1988. This is the only "werd 
processing’ software that I need. At times I prepare manuals ranging 
from 20 pages to approximately 200 pages for some friends in the 
airlie entertainment industry. All pages are printed out 

back-to-back. The Editor.SE handles this very well. Any control codes 
required (bold, double height-width, italics, letter quality, and so 
on) I embed directly into the text while proof reading. This can be 
done quite easily since The Editor has a special character set which, 
when used for control coding, the printer understands and follows 
through by printing out these commands correctly. 


Those of you who use The Editor SE, and don’t know whether you have 
the latest version or not (all SE versions are 2.05 regardless of the 
upgrade), look at the byte count for the XTRAS file. My original SE 
version of the xTRAS file indicates 5K 598 bytes; the newest version 
indicates 7K 268 bytes. There really aren’t any new commands added, 
however many of the commands have been ’tweeked’ or improved. The 
boot file now activates several Lightning files which are included on 


the disk, for faster operation of the software. Digital Precision 
will upgrade The Editor SE for you for a slight fee. 


Digital Precision has also’ upgraded PC CONQUEROR (PC emulator) to 
operate with more memory when using a Gold Card. This program is 
called PC Conqueror Gold Special Edition which allows the user with a 
Gold Card and ED disk drives (3.2 Meg) to get the most out of this PC 
emulator. I understand that this edition will also support hard 


drives. 


Most of the new software being developed recently operates with Tony 
Tebby’s Pointer Environment which is Mouse operated or with the aL 
cursor keys. If you are really interested in this type of software, 
search through the pages of IQLR, QL World, Updates or QUANTA. 


There is an awful lot of activity within the QL Software and 
hardware area, with many software libraries available consisting of 
public domain and shareware on disks. I have approximately 125, 720K 
disks full of interesting programs. Just check the ads in QL World 


for further information. 


QUANTA’s library has grown by ’leaps and bounds’ - I’ve lost track on 
just how many disks make up their library. I recently received four 
729K disks from Bob Dyl, the East Coast Quanta librarian. The 
Programs on these disks were compressed - The programs on the four 
original disks are now housed on 15 disks. Decompressing the 
programs are very easy. as it is menu driven. 


If you don’t subscribe to IQLR, QL World, Updates or Quanta and are 
still active with your QL, you should "aert the ball rolling’, select 
one or more of these publications and PLEASE, subscribe. 


International QL Report, 15 Kilburn Court, Newport, RI 02840, 
Telephone: 401-849-3805 EST 10:00 AM through 9:90 PM - $18.00 USA. 
Bob Dyl Publishes IQLR 6 times per year. 


UPDATE Magazine, P. o. Box 1095, Peru, IN 46970, Tel:317-473-8031 
Between 5:00 PM through 9:30 PM Standard Time during the week and 
noon to 6:@@ PM on weekends. $18.00 US and and $22.00 outside US. 
Carol and Frank Davis publishes four times per year - supporting ALL 
Timex/Sinclair computers. 


QL World Magazine, Archwind, The Blue Barn, Tew Lane, Wootton, 
Woodstock, Oxon, OX7 1HA, UK. USA & Canada '49.90 - Europe ‘32.90, 
Credit Cards accepted! Publishes 12 times per year. 


QUANTA - a World-Wide-QL User Group, Membership Secretary: Bill 
Newell, 213 Manor Road, Benfleet, Essex, SS7 4JD UK Telephone:0268 
754407. Publishes Quanta magazine 12 times per year and provides a 
vast software library which is free to all members. 


Please...” byte the bullet’. Let the Magazine publishers know that 
all QL users in the US will support them so that they can continue to 
publish their periodicals. Without these publications, software and 
hardware manufacturers will stop producing their wares because they 
will not be able to advertise their products - then it will be time 


to say, Good Bye, QL! 


See you next month....Bob Gilder 


EA 1 REM “COUNT” 
T CH KIDS TO COUNT, 2 LET A=INT (RNDE10) +1 
S GOTO 100#(INT (RND#5) +1) 
e e 7 FOR x= CH A-1 
Some education theorists sug- 19 PRINT AT 9.X23+1;AS 


e 15 PRINT AT ER XS ER & 
gest that learning to count and 20 NEXT x : E WC 
read is enhanced if you create a oS Pte Se 

d i d 30 INP 
large, sharp image in a child's . E OR CODE D$<28 
mind. This image should be easily 2 IF UBL BszA THEN GOTO Ss 
recognized and repeated often. 45 PRINT AT 2,6;D í 
Rapidly moving TV pictures get 50 GOTO 30 
55 IF VAL D$=A THEN PRINT AT 2 


credit (and blame) for generating 
very powerful attention-grabbing 
images that anyone watching learns 


5; 
Ze PRINT AT ze, 65% 
60 PAUSE 199 
65 CLS 


quickly. With your ZX81 and some san GELD an 
intelligent program design, your TV 105 SE 
can provide sharp graphic images of ape te ose E 
concepts you want to teach. 212 GoTo s7 

I wrote this program, COUNT, Ses LET Set 
to help my three-year-old son learn ioe Eine? ` 
to equate a group of objects witha 405 ter SW i 
number., The game draws a random 509 LET ase Te 
number of objects on the screen and 519 GOTO 7? 


asks, "How many?" If he answers 
correctly, the computer tells him 
he's right and draws another set. 
If he's wrong, the computer asks 
for another answer. 

Since my son can barely count Too OS Verson OC Abave 
much less read, written text is Ree 
kept to a minimum. To keep things 
interesting, the program generates 7 
several shapes that occur randomly. eet 

COUNT fits in a 1K machine, e, SEH 
with a little extra room if you E C0 [O 1008 CINT -(RNO45) 41) 
want a fancier win display. Once ? s 


FOR x=9 TO A-1 
3 LET C=INT (RND#65) +1 


you enter the listing and save it, 10 PRINT AT 9,X4941; INK CiAs 
just tell your child to push R for 15 PRINT AT 16.x#5+1; ? 

25 PRINT 8: INVERSE 1;" 
RUN. The game repeats until you e Dë MANY ee A 
pull the plug. 35 IF CODE Gees ÖR CODE D$<43 ` 


THEN GO TO 45 
40 IF VAL Lia TREN Go TO 55 


Tom Woods, Jefferson, NH 45 PRINT AT 2,4;D8;" IS “; INU 
ERSE 1;" zess Gét eee" 
50 GO TO 30 
To enter COUNT, use this guide. are IF UAL D$=A THEN PRINT AT 2 
All keys are in graphics mode raS PRINT AT 20, +8; INVERSE 1;“# 
(press shift 9 first).--AZ Sé BEEP -005s X" BEEP tios, 60-x 
BEEP .905,30-x 
line 100 shift Y shift T 20 PAUSE eg 
105 shift T shift Y ` oa aa re 
200 shift 8 shift G shift 5 190 LET Geng 
205 shift 8 shift F shift 5 SE 
300 shift R shift E 308 cer si. P 
305 shift Q shift W 300 LET Ss." 
400 shift W shift W shift 5 Soe Ler SE 
405 shift E shift E shift 5 400 LET Ge WW: 
500 shift W shift T ret bs ges AW 
505 shift E shift Y ses LET Ss- Ml 
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ZX81 Graphics Template 


K5XY QZX 1992 October 


The next page is a handy graph- 
ics template for the ZX81, TS1000, 
and TS1500. It will be useful when 
you are designing QSL cards where 
you want to get your call in large let- 
ters or even when you want to print a 
circuit diagram containing symbols 
for resistors and capacitors. In fact 
some reader might want to make a 
copy of this page and draw a uniform 
set of circuit symbols for the rest of 
the QZX readers. 
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Pixel x-coordinates ————> 


15 16 17 18 


D 35 


Remember that there are two 
ways to put blocks on the screen. You 
can have graphic symbols printed AT 
a desired line and column, or you can 
PLOT at a specified pixel coordinate. 


Note however that these two 
methods use entirely different coor- 
dinate systems, as the next page 
shows. The line and column system 
starts at the upper left hand corner. 
The number system for this coordi- 
nate system is along the top and left 
hand side of the form. The pixel coor- 
dinate system starts in the lower 
right hand corner and the number 
system is along the bottom and the 
right hand side. Note that there are 
four pixel positions to each line and 


An example: this is‘ the pixel (57,32) 
19 20 21 22 23 24 25\26 27 28 29 30 31 


34) 36] 38) 40; 42) 44| 46) 48 50 


7 aa A 45 d 
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column square. 


You can actually use the AT (line 
and column) system to turn on just 
the pixel you want but it is a little 
cumbersome. Note that the shifted 1, 
shifted 2, shifted 3, and shifted 4 
keys (in the graphics mode) will turn 
on the pixel in the upper left, upper 
right, lower right, and lower left 
(respectively) pixel positions. Other 
graphics keys (the shifted space, Q, 
W, 7, 6, R, 5, 8, T, Y, and E) will pro- 
duce all the other possible combina- 
tions of pixel activation. 


One way of using the next page is 
to copy it and then trace the picture 
you wish on it. The trace will tell you 
. Which spaces need activation and al- 
low you to decide whether to use the 
AT or PLOT method of getting the 
desired design. 


If the design is large and does not 
contain any elements which need 
high resolution, you can use the 
faster AT method. This method has 
the advantage that you can apply a 
bit of shading to the drawing by using 


Support For 


sinclair 
2331 - spectrun - @L 


JE v sinciair] 


1000 - 1508 - 2968 
CAMBRIDGE 
ee sad 


the shifted A, shifted H, shifted D, 
shifted G,. shifted S, and shifted F 
keys (all in the graphics mode). (By 
the way if you look carefully at your 
instruction manual you will notice 
that the shifted A does not give you 
quite the same pattern as the shifted 
H key.) 


If the design has many high reso- 
lution elements in it, you will find it 
is easier to use the PLOT method and 
turn on directly just the one pixel you 
want. This method is usually best 
when you want to draw a reasonably 
complicated design under program 
control. Of course, you will then not 
be able to get any of the shading ef- 
fect that the AT graphics keys per- 
mit. By judicious use of both methods 
you can combine the best features of 
both. Again the figure on the next 
page will help you with your design 
work. 


If you want to try your hand at 
another way of making circuit sym- 
bols or other small designs, see the 
article on a Pseudo-ROM in this is- 
sue. 


LOADER V 
by Bob Swoger 


Kurt Casby gave us a real gem 
when he wrote Loader V for use 
with MTERM Smart terminal II. 
To review, both MTERM and 
MSCRIPT were written by Steve 
Pagliarulo of MICRO-SYSTEMS 
SOFTWARE INC. OF West Palm 
Beach, Florida, and therefore 
the file transfers between the 
two are compatible. What the 
TS2068 community needed was a 
way to move TASWORD TWO and 
machine code files using MTERM 
and XMODEM capability over MA 
BELL's really bad long distance 
phone lines. 


The essential features: 


1) The ability to send and 
receive TASWORD files. 

2) Send & receive using XMODEM 
file transfer protocol. 

3) Upload BASIC files with long 
line statements to computers 
with limited input buffers 
like the club computer. 


The nice added features: 


4) Longer dialing menu. 
5) Speed dialing. 
6) Off-line buffer reloading. 


!! LITTLE REALIZED FACT II 

Loader V not only converts 
MSCRIPT files into TASWORD 
files but also converts TASWORD 
files into MSCRIPT files as 
well! LOADER.Bl gives us the 
ability to transform TASWORD 
files into MSCRIPT files as it 
loads the files into MTERM's 
buffer beginning at address 
26710! You can actually convert 
TASWORD files to MSCRIPT ` files 
without printer controls rather 
easily using this technique. To 
get the files back on disk as 
MSCRIPT files simply exit to 
BASIC from the MTERM Main Menu 
and save the file using the 
format RANDOMIZE USR 100: SAVE 
"filename.Cm" CODE 26710, BUFUSD 
BUFUSD is from the MTERM Main 


Menu screen in the lower right 
hand side. 


Let us now define UPLOAD and 
DOWNLOAD. An UPLOAD TO a host 
means that you will 
put/pass/send/transmit data of 
some kind, be it a BASIC 
program, machine code, or a 
text file from your word 
processor, to a computer on the 
other end of your phone line. A 
DOWNLOAD FROM a host means that 
you will get/take/receive data 
of some kind from a computer on 
the other end of your phone 
line. 


Loader V is made up of five 
Programs. LOADER.BV, as re- 
written, comes up with CIS_UP 
and MTERM machine code loaded. 
This is the startup screen: 


Loader V ©1985 by K.A.Casby 
MAIN MENU: 


1) RUN MTERM 

2) DIALING MENU 
3) LOAD BUFFER 
4) LOAD CIS-UP 
5) LOAD XMODEM 


PRINT USR 24024 - send 
PRINT USR 24415 - receive 


Your Choice? 


Write the two PRINT USR numbers 
down if you are going to use 
them during you terminal 
session, you will not see them 
again during your 
communication. Pressing 5 will 
load XMODEM into Loader V while 
pressing 4 will reload CIS-UP 
code back into Loader V. PRINT 
USR 24024 works to upload files 
in either CIS-UP mode or 
XMODEM, whichever one happens 
to be loaded. PRINT USR 24415 
works only to receive XMODEM 
mode. This is explained in your 
manual. 


To upload a TASWORD text file 
to a host, select 3 from the 
main menu. You are then asked 
which drive to go to and the 
CATalog of that disk is shown. 


Enter the filename and 
extension, press ENTER, and you 
are shown the next screen: 


Loader V ©1985 by K.A.Casby 
Name of Pilier ntnart.ctT 
Carriage returns: 


1) None 
2) Each line 
3) Each paragraph 


Your Choice? 


1) is for machine code uploads 
[files that end in C_ but not 
CT], so select 2). you will 
then be back at the main menu 
where you may select either 1) 
or 2) to proceed. 


RELOAD.B1 allows us to go off- 
line and reload MTERM's buffer 
without terminating the session 
with the host computer. 


CIS-UP.Bl permits operation 
with input buffered computers 
which have limited input buffer 
Space. The CATUG and T/SNUG 


BBSs are such machines, 
limiting input strings to 256 
characters. If you have a 


really long concatenated BASIC 
line of code, CIS-UP will chop 
up the line for you on the 
UPLOAD so that you don't crash 
the host. This feature need not 
be used as it is now accessible 
from the Loader V main menu at 
4). E 


TSXMDM.B1 gives us the ability 
to do XMODEM transfers not 
offered by MTERM. XMODEM 
Protocol is Ward Christensen's 
public domain gift to the 
community which repeatedly 
sends blocks of data to a host 
computer until it is received 
properly. Loader V is Kurt 
Casby's gift to the Sinclair 
community which ‘puts it all 
together. This feature need not 
be usec as it is now accessible 
from the Loader V main menu at 
5). 


UNLOAD.B1l converts MTERM files 
received as text and MSCRIPT 


files into TASWORD files. 


The BASIC drivers of Loader V 
and RELOAD for LarKen are 
presented below. LOADER V has 
been given the name LDR.BV for 
use with LogiCall. A 
LarKen/LogiCall formatted 
Loader V disk and all 
documentation can be obtained 
from T/SNUG by calling Abed 
Kahale at 708-885-4337. 


LDR. BV 


1 CLEAR VAL "29063": LET p=VA 
L "24007": LET f=VAL "20": LET h 


'=CODE "d": LET m=CODE "w": LET s 


=PI+PI: DIM y$(VAL "12"): LET o= 
NOT PI: LET i=SGN PI: LET b=i+i: 
POKE VAL "23658",0: LET nS=" Lo 
ader V -©1985 by K.A.Casby ": 
BORDER i: PAPER i: INK VAL "9": 
OUT m,o: CLS : PRINT n$''''TAB P 
I*Pl; "MAIN MENU:"'''TAB s;"1) RU 
N MTERM"''TAB s;"2) DIALING MENU 
""'TAB s;"3) LOAD BUFFER"''TAB s 
7"4) LOAD CIS-UP"''TAB s;"5) LOA 
D XMODEM"''TAB s;"6) EXIT™!'!t" p 
RINT USR 24024 - send"'" PRINT U 
SR 24415 - receive": GO SUB PI: 
IF LEN z$<>i OR VAL z$<i OR VAL 
z$>s THEN GO TO i 

2 GO TO VAL z$*f 

3 INPUT "Your Choice? "; LINE 
z$: RETURN 

20 RANDOMIZE USR VAL "23817" 

40 LET t=i: CLS : RESTORE : PR 
INT n$: FOR x=CODE "a" TO CODE " 
t": READ z$,y$: PRINT CHRS x;") 
";2S;: LET y$(i)="-": PRINT TAB 
fzy$: BRIGHT x-INT (x/b)*b: NEXT 

x: PRINT "u) Dial a # not liste 
a": GO SUB PI: IF zS$<"a" OR ëm 
u" THEN RUN 

41 IF z$="u" THEN INPUT "Phone 

+? "; LINE y$: GO TO CODE "+" 

42 RESTORE : FOR x=i TO b+b* (C 
ODE z$-CODE "a"): READ y$: NEXT 
x x 
43 POKE ptb,CODE "O"+CODE "Tk 
(CODE y$=CODE "E")+LEN y$* (CODE 
y$=CODE "0") 

44 LET zS=""; FOR x=i TO LEN y 
$: IF VAL y$(x)>=o AND y$(x)<="9 
H THEN LET z$=z$+y$ (x) 

45 OUT m,o: NEXT x: IF z$="" T 
HEN RUN 

46 BEEP VAL ".1",f: PRINT #o,; 
AT 0,0; FLASH i;" Dialing - 

"AT 0,VAL "11" 
; OVER i;z$;" - Try#";t 


47 OUT m,VAL "31": PAUSE VAL " 
60": FOR x=i TO LEN z$: LET z=VA 
L z$(x): IF z=o THEN LET z=f/b 

48 PAUSE VAL "25": FOR d=i TO 
z: FOR e=INT PI TO VAL "4": OUT 
m,e: PAUSE b: NEXT e: OUT m,i: O 
UT m,b: NEXT d: NEXT x 

49 FOR x=i TO VAL "2e3": IF IN 

m=VAL "133". THEN OUT m, VAL "34" 
: POKE p+i,i: BEEP i,f: GO TO f 

50 NEXT x: OUT m,o: PAUSE h: L 
ET t=t+i: GO TO VAL "46" 

60 INPUT "Drive? ";d: RANDOMIZ 
E USR h: GO TO d: CLS : RANDOMIZ 
E USR h: CAT ".C^",: INPUT "File 
name? "; LINE së: CLS : PRINT n$ 
'''"Ņame of File: ";: PRINT x$'' 
'"Carriage returns:"''"1) None"! 
"2) Each line"'"3) Each paragrap 
h": GO SUB PI: IF LEN z$<>i OR V 
AL z$<i OR VAL zS$>PI THEN RUN 

61 PRINT AT s,VAL "18";zS't't! 
''"Loading: '";x$;"'"; RANDOMIZE 

USR VAL "23780": POKE VAL "2372 


8",h: RANDOMIZE USR h: LOAD së 


DE VAL "29064": POKE p,VAL z$: P 
RINT : PRINT FLASH i;" LOAD comp 
lete, press any key! np: PAUSE o 
: RUN 
80 RANDOMIZE USR h: LOAD "CIS- 

UP.CV"CODE : RUN 

100 RANDOMIZE USR h: LOAD "TSXM 
DM.CV"CODE : RUN 

120 ON ERR RESET : GO TO VAL "9 
998" 

200 DATA "T/SNUG BBS", "P1708576 
7072" 

201 DATA “CATUG BBS", "P17085767 
140" 

202 DATA "J Shepard", "P15158466 
378" 

203 DATA "D Lambert", "P12199251 
372" 

204 DATA "A Kahale", "P170888543 
37" 

205 DATA "R Swoger", "P170883779 
57" 

206 DATA mn, "p" 

207 DATA mn, "p" 

208 DATA "","p" 

209 DATA mm, "p" 

210 DATA "","p" 

211 DATA "","p" 

212 DATA "","p" 

213 DATA nmn, "p" 

214 DATA "","p" 

215 DATA nm, npn 

216 DATA "", "P" 

217 DATA "","p" 

218 DATA "","p" 

219 DATA "","p" 

9001 RANDOMIZE USR h: LOAD "ldr. 


Cv"CODE : RANDOMIZE USR h: LOAD ` 
"mterm2.CV"CODE : RUN 

9992 LET h=CODE "d": RANDOMIZE U 
SR h: SAVE "LDR.BV" LINE VAL "Se 
3" 

9993 RANDOMIZE USR h: SAVE "ldr. 
CV"CODE VAL "23780",VAL "781": R 
ANDOMIZE USR h: SAVE "“mterm2.Cv" 
CODE VAL "54016",VAL "9216" 

9998 RANDOMIZE USR h: NEW 


RELOAD . B1 


1 POKE VAL "23658",NOT PI: CL 
EAR VAL "29063": LET f=VAL "5": 
LET h=VAL "100": LET o=SIN PI: L 
ET i=SGN PI: LET b=iti: LET c=VA 
L "23780": LET n$=" Re*Loader 
©1985 by K.A.Casby ": BORDER i: 
PAPER i: INK VAL "9": CLS : PRIN 
T n$tttrrrrmpag VAL SIS RUN M 
TERM"'*' "TAB VAL "7";"2) LOAD BU 
FFER": GO SUB PI: IF LEN z$<>i O 
R z$<"1" OR z$>"2" THEN RUN 

‘2 GO TO VAL zS*f Ke 

3 INPUT "Your Choice? "; LINE 

z$: RETURN 

5 ON ERR RESET : PRINT USR VA 
L "23817" 

10 INPUT "DRIVE? ";D: RANDOMIZ 
E USR h: GO TO D: CLS : RANDOMIZ 
E USR h: CAT ".C*",: PRINT "Driv 
e¢ 00";d: INPUT "Filename? 
"; LINE n$: CLS : PRINT '''"Name 
of File: ";: PRINT nS$'''"Carria 
10 INPUT "DRIVE? ";D: RANDOMIZ 
E USR h: GO TO D: CLS : RANDOMIZ 
E USR h: CAT ".C*",; PRINT "Driv 
e? 00";d: INPUT "Filename? 
"; LINE n$: CLS : PRINT '''"Name 
of File: ";: PRINT n$'''"Carria 
ge returns:"''"]1) None"'"2) Each 
line"'"3) Each paragraph": GO S 
UB PI: IF LEN zS<>i OR zS$<"1" OR 
z$>"3" THEN RUN 
11 PRINT AT PI+PI,VAL "18";z$' 
trrtttanow Loading: "' Web o ETA 
from Drive # ";D: RANDOMIZE USR 
CG RANDOMIZE USR h: LOAD nSCODE 
VAL "29064": POKE VAL "24007",VA 
L z$: PRINT : PRINT FLASH i;" LO 
AD complete, press any key! ": 
PAUSE o: GO TO f 
9992 RANDOMIZE USR h: SAVE "RELO 
AD.B1" LINE 1 
9998 RANDOMIZE USR h: LOAD st, BI 


